Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows


Partial Public Class ComboboxZone
    Inherits DashboardZone

    Dim _Visual As New ComboBox()

    Sub New()

        Me._Visual.HorizontalAlignment = HorizontalAlignment.Stretch
        Me._Visual.VerticalAlignment = VerticalAlignment.Center
        Me._Visual.IsSynchronizedWithCurrentItem = True
        Me._Visual.ItemTemplate = ModuleDashboarding._propertyGridDictionary("FilterListBoxItemTemplate")
        Me._Visual.SelectedValuePath = "Member"

        '    Me.Properties.Add(New DashboardZoneProperty(Me, "IsSynchronizedWithCurrentItem"))
        '   Me.Properties.Add(New DashboardZoneProperty(Me, "SelectedIndex"))
        '  Me.Properties.Add(New DashboardZoneProperty(Me, "SelectedItem"))
        ' Me.Properties.Add(New DashboardZoneProperty(Me, "SelectedValue"))
        'Me.Properties.Add(New DashboardZoneProperty(Me, "SelectedValuePath"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "ItemsSource"))
        ' Me.Properties.Add(New DashboardZoneProperty(Me, "DisplayMemberPath"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "BorderBrush"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "BorderThickness"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "Background"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "Foreground"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "FontFamily"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "FontSize"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "FontStretch"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "FontStyle"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "FontWeight"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "HorizontalContentAlignment"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "VerticalContentAlignment"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "Padding"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "Margin"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "HorizontalAlignment"))
        Me.Properties.Add(New DashboardZoneProperty(Me, "VerticalAlignment"))


    End Sub

    Public Overrides ReadOnly Property Visual As UIElement
        Get
            Return _Visual
        End Get
    End Property


    Protected Friend Overrides Sub OnDeserializeVisual(ByVal visual As System.Windows.UIElement)
        MyBase.OnDeserializeVisual(visual)
        Me._Visual = visual
    End Sub
End Class
